home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 January
/
64er_Magazin_87-01_1987_Markt__Technik_de.d64
/
testbild 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
152 lines
1 rem *********************************
2 rem * Dxbildgenerator *
3 rem *********************************
4 rem * dieter laues *
5 rem * vowinkelstr. 1 *
6 rem * 4030 ratingen 1 *
7 rem *********************************
8 rem
9 rem
20 l=8:s=54272:rem synthesizer
25 DG:D 0,3:rem grundzustand
30 print"[147]"
35 print"1 - rot"
40 print"2 - gruen"
45 print"3 - blau":print
50 print"4 - gitter":print
55 print"5 - farbbalken":print
60 print"6 - multiburst":print
65 print"7 - 50hz-sprung":print
70 print"8 - 2t-impuls":print
75 print"9 - farbtestbild":print:print
80 print"----------------------------"
85 print"f1 pegelton 1000 hz"
90 print"f3 zweiton-kennung 274 hz"
95 print"f5 stereo-kennung 117 hz"
100 get a$:if a$="" then 100
105 a=val (a$):if a<1 or a>9 then 100
110 on a gosub 295,300,305,315,330,370,410,440,455
115 goto 25
120 rem *******************************
125 rem * unterprogramme *
130 rem *******************************
135 rem --- vertikale Dyien ---
140 for n=a to b step c
145 for m=0 to d
150 D n+m,0,n+m,185,1:next m:next n
155 DO x,190,a$,1,0,8:return
160 for n=a to b step c:for m=0 to d
165 D n+m,112,n+m,127,1:nextm:nextn
170 return
175 rem --- raster ---
180 D 1,0:rem grafik einschalten
185 for n=8 to 320 step 20
190 D n,0,n,199,1:next
195 for n=8 to 199 step 20
200 D 0,n,319,n,1:next
205 return
210 rem --- farbflaeche ---
215 print"[147]":D a,a
220 goto 230
225 rem --- tasten abfragen ---
230 get a$:if a$="" then 230
235 if asc(a$)>140 or asc(a$)<133 then return
240 if asc(a$)=133 then hi=66:lo=140:gosub 275
245 if asc(a$)=134 then hi=18:lo=60 :gosub 275
250 if asc(a$)=135 then hi=7 :lo=200:gosub 275
255 if asc(a$)=136 then l=l+1:if l>15 then l=15
260 if asc(a$)=140 then l=l-1:if l<0 then l=0
265 DQ l:goto 230:rem lautstaerke
270 rem --- toene ---
275 poke s+7,lo:poke s+8,hi:poke s+13,240:rem frequenz,wellenform
280 if e=0 then e=1:pokes+11,17:return
285 if e=1 then e=0:poke s+11,0:return
290 rem ******* grundfarben **********
295 a=2:goto 215:rem D
300 a=5:goto 215:rem gruen
305 a=6:goto 215:rem blau
310 rem ********** gitter ************
315 gosub 180:rem raster zeichnen
320 goto 230
325 rem ******** farbbalken **********
330 D 15,0:rem rahmen, hintergrund
335 print"[147] [158] [159] [156] [144] "
340 for n=1 to 23
345 print" [158] [159] [156] [144] "
350 next
355 print" [158] [159] [156] [144] [145]"
360 goto 230
365 rem ******* Dburst **********
370 D 1,0
375 a=0 :b=70 :c=16:d=7:x=5 :a$="0,5 mhz":gosub 140
380 a=76 :b=128:c=8 :d=3:x=80 :a$="1 mhz":gosub 140
385 a=132:b=192:c=6 :d=2:x=135:a$="1,3 mhz":gosub 140
390 a=198:b=256:c=4 :d=1:x=205:a$="2 mhz":gosub 140
395 a=258:b=318:c=2 :d=0:x=265:a$="4 mhz":gosub 140
400 goto 230
405 rem ******* 50hz-sprung **********
410 D 0,0:print"[147]"
415 for n=1 to 15
420 print" [146][144]"
425 next
430 goto 230
435 rem ******* 2t-impuls ***********
440 D 1,0:D 160,0,160,199,1
445 goto 230
450 rem ****** Dxbild *************
455 D 1,0:rem grafik einschalten
460 rem ----- aeusseres raster ------
465 for n=8 to 60 step 20
470 D n,0,n,199,1:next
475 for n=69 to 260 step 20
480 D n,0,n,24,1:D n,175,n,199,1:next
485 for n=270 to 320 step 20
490 D n,0,n,199,1:next
495 D 0,8,319,8,1
500 D 0,188,319,188,1
505 for n=28 to 168 step 20
510 D 0,n,63,n,1:D 255,n,319,n,1:next
515 rem ----- innerer rahmen --------
520 for n=63 to 251 step 24
525 D n,24,24,40,1:next
530 for n=63 to 190 step 40
535 D n,64,40,32,1:next
540 D 224,64,31,48,1
545 D 63,96,32,16,1
550 D 96,96,127,16,1
555 D 63,112,192,16,1
560 D 63,128,192,15,1
565 D 63,143,128,16,1
570 D 63,160,128,15,1
575 D 192,144,30,31,1
580 D 224,144,31,31,1
585 D 158,128,158,142,1
590 D 160,142,170,128,1
595 rem ----- kreis -----
600 DK 159,100,321,39,1,100,100,1
605 DK 159,100,75,105,1,100,100,1
610 DK 159,100,255,285,1,100,100,1
615 DK 159,100,141,219,1,100,100,1
620 rem farben einsetzen
625 DV 1,0,0:DU 65,25,1
630 DV 7,0,0:DU 90,25,1
635 DV 3,0,0:DU 113,25,1
640 DV 5,0,0:DU 137,25,1
645 DV 4,0,0:DU 161,25,1
650 DV 2,0,0:DU 185,25,1
655 DV 6,0,0:DU 209,25,1
660 DV 0,0,0:DU 233,25,1:DU 90,90,1
665 DV 11,0,0:DU 105,65,1
670 DV 12,0,0:DU145,65,1:DU 193,145,1:DU225,145,1
675 DV 15,0,0:DU 185,65,1
680 DV 2,0,0:DU 64,144,1
685 DV 6,0,0:DU 64,161,1
690 DV 1,0,0:DU 225,65,1:DU 66,97,1:DU 65,129,1:DU170,129,1
695 rem Dburst
700 a=86 :b=125:c=8:d=4:gosub 160
705 a=125:b=160:c=6:d=3:gosub 160
710 a=160:b=195:c=4:d=2:gosub 160
715 a=196:b=230:c=2:d=0:gosub 160
720 DO 105,102,"64'er [212]estbild",1,1,8
725 goto 230